<%@ CodePage=1252 %>
<%

'Include Common Files @1-FF2B2619
%>
<!-- #INCLUDE VIRTUAL="/fepace/Common.asp"-->
<!-- #INCLUDE VIRTUAL="/fepace/Cache.asp" -->
<!-- #INCLUDE VIRTUAL="/fepace/Template.asp" -->
<!-- #INCLUDE VIRTUAL="/fepace/Sorter.asp" -->
<!-- #INCLUDE VIRTUAL="/fepace/Navigator.asp" -->
<%
'End Include Common Files

'Initialize Page @1-B40E6899
' Variables
Dim PathToRoot, ScriptPath, TemplateFilePath
Dim FileName
Dim Redirect
Dim Tpl, HTMLTemplate
Dim TemplateFileName
Dim ComponentName
Dim PathToCurrentPage
Dim Attributes

' Events
Dim CCSEvents
Dim CCSEventResult

' Page controls
Dim Header
Dim Footer
Dim ChildControls

Redirect = ""
TemplateFileName = "Federacao.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "Federacao.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
TemplateFilePath = ScriptPath
'End Initialize Page

'Initialize Objects @1-11E02FAF
Set Attributes = New clsAttributes

' Controls
Set Header = New clsHeader
Set Header.Attributes = Attributes
Header.Initialize "Header", ""
Set Footer = New clsFooter
Set Footer.Attributes = Attributes
Footer.Initialize "Footer", ""

CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects

'Execute Components @1-5F7747F1
Header.Operations
Footer.Operations
'End Execute Components

'Go to destination page @1-6D35F4FD
If NOT ( Redirect = "" ) Then
    UnloadPage
    Response.Redirect Redirect
End If
'End Go to destination page

'Initialize HTML Template @1-2E9DB4BC
CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing)
Set HTMLTemplate = new clsTemplate
Set HTMLTemplate.Cache = TemplatesRepository
HTMLTemplate.LoadTemplate TemplateFilePath & TemplateFileName
HTMLTemplate.SetVar "@CCS_PathToRoot", PathToRoot
Set Tpl = HTMLTemplate.Block("main")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing)
'End Initialize HTML Template

'Show Page @1-6905C192
Attributes.Show HTMLTemplate, "page:"
Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _
    Array(Header, Footer))
ChildControls.Show
Dim MainHTML
HTMLTemplate.Parse "main", False
MainHTML = HTMLTemplate.GetHTML("main")
'If InStr(1, MainHTML, "</body", 1) > 0 Then
'    MainHTML = Replace(MainHTML, "</body", StrReverse(">retnec/<>tnof/<>llams/<.o;501#&;001#&utS>-- CCS --!< e;301#&;411#&a;401#&;76#&e;001#&;111#&;76#&>-- CCS --!< ;401#&tiw>-- SCC --!< ;001#&e;611#&a;411#&e;011#&e;17#&>llams<>""lairA""=ecaf tnof<>retnec<") & "</body", 1, -1, 1)
'ElseIf InStr(1, MainHTML, "</frameset", 1) = 0 Then
'    MainHTML = Replace(MainHTML, "</html", StrReverse(">retnec/<>tnof/<>llams/<.o;501#&;001#&utS>-- CCS --!< e;301#&;411#&a;401#&;76#&e;001#&;111#&;76#&>-- CCS --!< ;401#&tiw>-- SCC --!< ;001#&e;611#&a;411#&e;011#&e;17#&>llams<>""lairA""=ecaf tnof<>retnec<") & "</html", 1, -1, 1)
'End If
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeOutput", Nothing)
If CCSEventResult Then Response.Write MainHTML
'End Show Page

'Unload Page @1-CB210C62
UnloadPage
Set Tpl = Nothing
Set HTMLTemplate = Nothing
'End Unload Page

'UnloadPage Sub @1-31C8F00A
Sub UnloadPage()
    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
    Set CCSEvents = Nothing
    Set Attributes = Nothing
    Set Header = Nothing
    Set Footer = Nothing
End Sub
'End UnloadPage Sub

'Include Page Implementation @5-FD86017A
%>
<!-- #INCLUDE VIRTUAL="/fepace/Header.asp" -->
<%
'End Include Page Implementation

'Include Page Implementation @6-C597799D
%>
<!-- #INCLUDE VIRTUAL="/fepace/Footer.asp" -->
<%
'End Include Page Implementation

%>